home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / disktools / festplatten-tools / fill / pmodules / cskipwhite.e < prev    next >
Text File  |  1995-03-09  |  293b  |  17 lines
  1. /*-- cSkipWhite.e --*/
  2. OPT TURBO
  3.  
  4. PROC cSkipWhite(pos:PTR TO CHAR)
  5.   DEF c
  6.   WHILE (c:=pos[])
  7.     SELECT c
  8.       CASE 32; INC pos  /* SPACE */
  9.       CASE  9; INC pos  /* TAB */
  10.       CASE 10; INC pos  /* LF */
  11.       DEFAULT; RETURN pos
  12.     ENDSELECT
  13.   ENDWHILE
  14. ENDPROC pos
  15.   /* cSkipWhite */
  16.  
  17.